home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / Version.ecall < prev    next >
Text File  |  1997-05-05  |  815b  |  27 lines

  1. /*****************************************************************
  2. **                                                              **
  3. **      Version.ecall               EuraCall-Script             **
  4. **      Liefert die Version von EuraCall                        **
  5. **                                                              **
  6. ******************************************************************
  7. **
  8. **      V1.0 -- (C) 1997 Richard Körber -- All Rights Reserved
  9. **
  10. **/
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS FAILAT 6
  14. IF Left(Address(),8)~='EURACALL' THEN ADDRESS 'EURACALL.1'
  15.  
  16. /*---- SCRIPT STARTS HERE --------------------------------------*/
  17.  
  18. 'VERSION'
  19. PARSE VAR result ver '.' rev '(' date ')'
  20.  
  21. SAY "Version" ver "Revision" rev "vom" date ||"."
  22.  
  23. /*---- SCRIPT ENDS HERE ----------------------------------------*/
  24.  
  25. EXIT
  26.  
  27.